3 GOSUB60100:CLR
5 DIM N$(20),G$(38)
6 BS$=""
10 POKE53280,8:POKE53281,.
20 SE$=" [154][208]RESS [198]1 [154]FOR NO CHANGE, [198]7 [154]TO DELETE."
50 PRINT"[147][129] [212]ELEPHONE [204]ISTER   -   BY [194]RUCE [202]AEGER "
110 SP$="":FORX=1TO40
120 SP$=SP$+" ":NEXT
130 PRINT"     [154][210]EADING [196][193][212][193] ... [208]LEASE WAIT."
142 OPEN15,8,15:OPEN3,8,3,"NUMBERS":INPUT#15,ER,ER$
144 IFER<>.THENCLOSE3:CLOSE15:GOSUB1100:GOTO50
150 FORMM=1TO20:GOSUB1150
170 N$(MM)=N$:NEXT
180 CLOSE3:CLOSE15
230 PRINT"[145]                                       "
240 GOSUB1000:GOSUB1200
241 GOSUB1050
242 GETA$:IFA$=""THEN242
244 IFA$>="[193]"ANDA$<="T"THENA$=CHR$(ASC(A$)-128)
245 IFA$>="A"ANDA$<="T"THEN249
246 IFA$=" "THENGOSUB1250:PRINTBS$:GOSUB9000:GOTO241
247 IFA$=CHR$(13)THEN260
248 GOTO242
249 NU=ASC(A$)-64
250 GOSUB1250:PRINTBS$SE$:PRINT"[154][206]AME:";:GOSUB2000:N1$=N$:IFA$="[133]"THEN252
251 IFA$="[136]"THENRE=1:GOTO1500
252 GOSUB1250:PRINTBS$SE$:PRINT"[154][200]OME [208]HONE:";:GOSUB2000:N2$=N$:IFA$="[133]"THEN255
254 IFA$="[136]"THENRE=2:GOTO1500
255 GOSUB1250:PRINTBS$SE$:PRINT"[154][215]ORK [208]HONE:";:GOSUB2000:N3$=N$
256 IFA$="[133]"THEN258
257 IFA$="[136]"THENRE=3:GOTO1500
258 N$(NU)=N1$+"/"+N2$+"/"+N3$:GOTO240
260 OPEN15,4,15:CLOSE15:IFST=.THEN265
263 GOSUB1250:PRINTBS$"       [197]RROR: [208]RINTER NOT ONLINE.      "
264 FORA=1TO2000:NEXT:GOTO240
265 GOSUB1250:PRINTBS$"        [159][208]RINTING ... PLEASE WAIT."
270 LC$=CHR$(17)
280 OPEN 4,4
290 PRINT#4:PRINT#4
300 PRINT#4,LC$;"[212][197][204][197][208][200][207][206][197] [206][213][205][194][197][210][211]"
310 PRINT#4
320 PRINT#4,LC$;"[206][193][205][197]";
330 PRINT#4,LEFT$(SP$,36);
340 PRINT#4,LC$;"[200][207][205][197]";
350 PRINT#4,LEFT$(SP$,14);
360 PRINT#4,LC$;"[215][207][210][203]"
370 FORX=1TO80
380 PRINT#4,"-";
390 NEXT:PRINT#4
400 REM NOW PRINT NAMES & NUMBERS
410 FORX=1TO20
420 REM SEPARATE NAMES & NUMBERS
430 N$=N$(X)
440 Y=1
450 IFY>LEN(N$)THEN470
460 IFMID$(N$,Y,1)<>"/"THENY=Y+1:GOTO450
470 NA$=LEFT$(N$,Y-1)
480 N$=MID$(N$,Y+1)
490 Y=1
500 IFY>LEN(N$)THENHN$=N$:BN$="":GOTO540
510 IFMID$(N$,Y,1)<>"/"THENY=Y+1:GOTO500
520 HN$=LEFT$(N$,Y-1)
530 BN$=MID$(N$,Y+1)
540 NA$=LEFT$(NA$+SP$,40)
550 HN$=LEFT$(HN$+SP$,18)
555 IFNA$=SP$THEN570
560 PRINT#4,LC$;NA$;HN$;BN$
570 NEXT
580 PRINT#4:CLOSE4
680 GOTO240
690 REM
1000 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1010 FORA=1TO20:PRINT" [221]"SPC(36)"[221]":NEXT
1020 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
1050 PRINTBS$"  [154][208]RESS [[193][154]-[212][154]] TO CHANGE OR DELETE.    "
1060 PRINT"  [208]RESS [210][197][212][213][210][206] [154]TO PRINT, [211][208][193][195][197] [154]TO QUIT."
1070 RETURN
1100 ER$="[197][210][210][207][210]:[150]"+ER$:TA=20-LEN(ER$)/2
1101 PRINT""TAB(TA)ER$""
1102 PRINT"[154]  [208]RESS [211][208][193][195][197] [154]TO TRY AGAIN, [209] [154]TO QUIT."
1104 GETA$:IFA$<>" "ANDA$<>"Q"ANDA$<>"[160]"ANDA$<>"[209]"THEN1104
1106 IFA$=" "ORA$="[160]"THENRETURN
1108 GOSUB9000:GOTO1102
1150 A=1:N$=""
1155 GET#3,A$:IFA$=CHR$(13)THEN1170
1160 N$=N$+A$:GOTO1155
1170 RETURN
1200 PRINT"";:FORMM=1TO20:N$="":FORB=1TOLEN(N$(MM)):A$=MID$(N$(MM),B,1)
1205 IFA$="/"THEN1208
1206 N$=N$+A$
1207 NEXT
1208 PRINT"                                 [145]"
1210 PRINT"[158]"CHR$(192+MM)". [129]"N$:NEXTMM:RETURN
1250 PRINTBS$"                                       "
1260 PRINT"                                       ":RETURN
1500 GOSUB1250:PRINTBS$"[154] [193]RE YOU SURE YOU WANT TO DELETE? ([217][154]/[206][154])":POKE198,.
1510 GETA$:IFA$<>"Y"ANDA$<>"N"ANDA$<>"[206]"ANDA$<>"[217]"THEN1510
1520 IFA$="Y"THENN$(NU)=" / / ":GOSUB1250:GOTO240
1530 ON RE GOTO 250,252,255
2000 PRINT"[164]";:FORA=1TO26
2010 GETA$:IFA$=""THEN2010
2015 IFA$=CHR$(13)THEN2080
2017 IF(A$=CHR$(20))AND(A>1)THENPRINT"[157][157]  [157][157][164]";:A=A-1:G$(A)="":GOTO2010
2019 IF(A=26)THEN2010
2020 IF(A$>=" "ANDA$<="Z")OR(A$>="[193]"ANDA$<="[218]")OR(A$=" ")THEN2060
2030 IFA$="[133]"THENRETURN
2040 IFA$="[136]"THENRETURN
2050 GOTO2010
2060 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";
2070 G$(A)=A$:NEXT
2080 PRINT"[157] ";:N$="":FORB=1TOA-1:N$=N$+G$(B):NEXT:RETURN
8000 OPEN3,8,3,"NUMBERS,S,W"
8005 FORA=1TO20
8010 PRINT#3," / / "
8015 NEXT
8020 CLOSE3:STOP
9000 PRINT"[145]  [154][193]RE YOU SURE YOU WANT TO QUIT? ([217][154]/[206][154]) "
9010 GETA$:IFA$<>"N"ANDA$<>"Y"ANDA$<>"[206]"ANDA$<>"[217]"THEN9010
9020 IFA$="N"ANDA$<>"[206]"THENPRINT"[145]";:RETURN
9023 OPEN15,8,15,"I0":PRINT#15,"S0:NUMBERS":CLOSE15
9026 OPEN3,8,3,"NUMBERS,S,W":FORA=1TO20:PRINT#3,N$(A):NEXT:CLOSE3
9030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
9040 PRINT"[147]";:IFER<>63THENEND
9050 LOAD"HELLO CONNECT",8
60100 PN$="[212][197][204][197][208][200][207][206][197] [204][201][211][212][197][210]":AN$="[194][217]:  [194][210][213][195][197] [202][193][197][199][197][210]"
60110 BO=14:SC=1:CL=06:C1=3:C2=09:C3=3:C4=09:C5=00:C6=00:C7=00
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";:GOTO60250
60140 POKE646,C1:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 POKE646,C2:PRINT" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
60170 POKE646,C1:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 POKE646,C3:PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 POKE646,C4:PRINT" [165]                                  [167]"
60240 POKE646,C3:PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
60245 POKE198,.:GOTO60360
60250 POKE646,CL
60255 PRINT" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
60260 FORA=1TO3:GOSUB60470:NEXT
60270 GOSUB60470:PRINT"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60280 FORA=1TO16:GOSUB60470:NEXT
60290 PRINT"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60300 FORA=1TO3:GOSUB60470:NEXT
60310 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
60320 POKE53280,BO:POKE53281,SC:GOTO60140
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60380 FORA=1TO100
60390 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]"
60430 FORA=1TO100
60440 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360
60470 PRINT" [161][146][161]":RETURN